home *** CD-ROM | disk | FTP | other *** search
- @if "%debug%"=="" echo off
- :: Zerodel Begin ::
- set _zero=9
- if not "%_zero%"=="9" goto _end
- set _zero=
- set _zerodel=999999999
- if not "%_zerodel%"=="999999999" goto _end
- set _zerodel=
- if not "%_nwdtmp%"=="" goto _tmpok
- set _zero=1
- set _nwdtmp=%tmp%
- if not "%tmp%"=="%_nwdtmp%" goto _end
- :_tmpok
-
-
- if "%1"=="" goto _end
- if not exist %1 goto _end
-
- if not exist bin\varset.com if not exist %ramdrv%\bin\varset.com goto _end
- if not exist bin\el!.com if not exist %ramdrv%\bin\el!.com goto _end
-
- if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
- if exist %_nwdtmp%\_zerodel.bat goto _end
- if exist bin\varset.com goto _binvar
- if exist %ramdrv%\bin\varset.com goto _ramvar
- goto _end
-
- :_ramvar
- %ramdrv%\bin\varset.com _zerodel=size %1 >%_nwdtmp%\_zerodel.bat
- if exist %_nwdtmp%\_zerodel.bat call %_nwdtmp%\_zerodel.bat
- if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
- if "%2"=="" if "%_zerodel%"=="0" del %1 >%tmp%\nul
- if not "%_zero%"=="" set _nwdtmp=
- set _zero=
- if "%_zerodel%"=="0" goto _er1
- set _zerodel=
- %ramdrv%\bin\el! 0
- goto _veryend
- :_er1
- set _zerodel=
- %ramdrv%\bin\el! 1
- goto _veryend
-
- :_binvar
- bin\varset.com _zerodel=size %1 >%_nwdtmp%\_zerodel.bat
- if exist %_nwdtmp%\_zerodel.bat call %_nwdtmp%\_zerodel.bat
- if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
- if "%2"=="" if "%_zerodel%"=="0" del %1 >%tmp%\nul
- if not "%_zero%"=="" set _nwdtmp=
- set _zero=
- if "%_zerodel%"=="0" goto _eb1
- set _zerodel=
- bin\el! 0
- goto _veryend
- :_eb1
- set _zerodel=
- bin\el! 1
- goto _veryend
-
- :_end
- if not "%_zero%"=="" set _nwdtmp=
- set _zero=
- set _zerodel=
- :_veryend
- :: Zerodel End ::
-